1 PRINT"[147]":POKE53280,11:POKE53281,11
3 AB=RND(-TI):AC=INT(RND(1)*8)+1
4 GOTO11000
5 GOTO10010
6 PRINT"[145][145][145] [157][157][157][157][157][157][157][157][157][157][157][157][157]   GET 4 TRAINS IN THE CENTRE"
7 PRINT"[145]       PRESS SPACE BAR FOR HELP"
300 A=55475:B=55514:C=55516:D=55594:E=55596:F=55670:G=55672:H=55674:I=55676
302 J=55678:K=55680:L=55709:M=55721:N=55750:O=55752:P=55754:Q=55756:R=55758
304 S=55760:T=55834:U=55836:V=55914:W=55916:X=55955
306 POKEL,0:POKEN,7:POKEX,0:POKEW,7
308 POKEM,0:POKEK,7:POKEA,0:POKEB,7
400 GETA$:IFA$=""THEN GOTO400
414 IFA$="A"THEN GOSUB1000:GOSUB2000
416 IFA$="B"THEN GOSUB1000:GOSUB3000
418 IFA$="C"THEN GOSUB1000:GOSUB4000
420 IFA$="D"THEN GOSUB1000:GOSUB5000
422 IFA$="E"THEN GOSUB1000:GOSUB6000
424 IFA$="F"THEN GOSUB1000:GOSUB7000
426 IFA$="G"THEN GOSUB1000:GOSUB8000
428 IFA$="H"THEN GOSUB1000:GOSUB9000
430 IFA$=" "THEN GOTO1
500 GOTO400
1000 AA=PEEK(A):BB=PEEK(B):CC=PEEK(C):DD=PEEK(D):EE=PEEK(E):FF=PEEK(F)
1002 GG=PEEK(G):HH=PEEK(H):II=PEEK(I):JJ=PEEK(J):KK=PEEK(K):LL=PEEK(L)
1004 MM=PEEK(M):NN=PEEK(N):OO=PEEK(O):PP=PEEK(P):QQ=PEEK(Q):RR=PEEK(R)
1006 SS=PEEK(S):TT=PEEK(T):UU=PEEK(U):VV=PEEK(V):WW=PEEK(W):XX=PEEK(X)
1008 RETURN
2000 IFAC=1THENGOTO2004
2002 IF(OOAND7)+(PPAND7)+(QQAND7)+(DDAND7)=28THEN GOSUB9500:GOTO400
2004 POKEA,CC:POKEC,EE:POKEE,II:POKEI,QQ:POKEQ,PP:POKEP,OO:POKEO,NN:POKEN,LL
2006 POKEL,FF:POKEF,GG:POKEG,HH:POKEH,DD:POKED,BB:POKEB,AA
2008 GOSUB1000:IF(HHAND7)+(IIAND7)+(QQAND7)+(PPAND7)=28THENPRINT"[158]SUCCESS"
2100 RETURN
3000 IFAC=2THENGOTO3004
3002 IF(EEAND7)+(IIAND7)+(QQAND7)+(GGAND7)=28THEN GOSUB9502:GOTO400
3004 POKEA,BB:POKEC,AA:POKEE,CC:POKEI,EE:POKEQ,II:POKEP,QQ:POKEO,PP:POKEN,OO
3006 POKEL,NN:POKEF,LL:POKEG,FF:POKEH,GG:POKED,HH:POKEB,DD
3008 GOSUB1000:IF(HHAND7)+(IIAND7)+(QQAND7)+(PPAND7)=28THENPRINT"[158]SUCCESS"
3100 RETURN
4000 IF AC=3THENGOTO4004
4002 IF(HHAND7)+(PPAND7)+(DDAND7)+(JJAND7)=28THEN GOSUB9504:GOTO400
4004 POKEA,CC:POKEC,EE:POKEE,II:POKEI,JJ:POKEJ,KK:POKEK,MM:POKEM,SS:POKES,RR
4006 POKER,QQ:POKEQ,PP:POKEP,HH:POKEH,DD:POKED,BB:POKEB,AA
4008 GOSUB1000:IF(HHAND7)+(IIAND7)+(QQAND7)+(PPAND7)=28THENPRINT"[158]SUCCESS"
4100 RETURN
5000 IF AC=4THENGOTO5004
5002 IF(PPAND7)+(QQAND7)+(RRAND7)+(EEAND7)=28THEN GOSUB9506:GOTO400
5004 POKEA,BB:POKEC,AA:POKEE,CC:POKEI,EE:POKEJ,II:POKEK,JJ:POKEM,KK:POKES,MM
5006 POKER,SS:POKEQ,RR:POKEP,QQ:POKEH,PP:POKED,HH:POKEB,DD
5008 GOSUB1000:IF(HHAND7)+(IIAND7)+(QQAND7)+(PPAND7)=28THENPRINT"[158]SUCCESS"
5100 RETURN
6000 IF AC=5THENGOTO6004
6002 IF(HHAND7)+(IIAND7)+(GGAND7)+(TT AND7)=28THEN GOSUB9508:GOTO400
6004 POKEL,NN:POKEF,LL:POKEG,FF:POKEH,GG:POKEI,HH:POKEQ,II:POKEU,QQ:POKEW,UU
6006 POKEX,WW:POKEV,XX:POKET,VV:POKEP,TT:POKEO,PP:POKEN,OO
6008 GOSUB1000:IF(HHAND7)+(IIAND7)+(QQAND7)+(PPAND7)=28THENPRINT"[158]SUCCESS"
6100 RETURN
7000 IF AC=6THENGOTO7004
7002 IF(QQAND7)+(IIAND7)+(UUAND7)+(OOAND7)=28THEN GOSUB9510:GOTO400
7004 POKEL,FF:POKEF,GG:POKEG,HH:POKEH,II:POKEI,QQ:POKEQ,UU:POKEU,WW:POKEW,XX
7006 POKEX,VV:POKEV,TT:POKET,PP:POKEP,OO:POKEO,NN:POKEN,LL
7008 GOSUB1000:IF(HHAND7)+(IIAND7)+(QQAND7)+(PPAND7)=28THENPRINT"[158]SUCCESS"
7100 RETURN
8000 IF AC=7THENGOTO8004
8002 IF(HHAND7)+(PPAND7)+(TT AND7)+(RRAND7)=28THEN GOSUB9512:GOTO400
8004 POKEX,WW:POKEV,XX:POKET,VV:POKEP,TT:POKEH,PP:POKEI,HH:POKEJ,II:POKEK,JJ
8006 POKEM,KK:POKES,MM:POKER,SS:POKEQ,RR:POKEU,QQ:POKEW,UU
8008 GOSUB1000:IF(HHAND7)+(IIAND7)+(QQAND7)+(PPAND7)=28THENPRINT"[158]SUCCESS"
8100 RETURN
9000 IF AC=8THENGOTO9004
9002 IF(HHAND7)+(IIAND7)+(JJAND7)+(UUAND7)=28THEN GOSUB9514:GOTO400
9004 POKEX,VV:POKEV,TT:POKET,PP:POKEP,HH:POKEH,II:POKEI,JJ:POKEJ,KK:POKEK,MM
9006 POKEM,SS:POKES,RR:POKER,QQ:POKEQ,UU:POKEU,WW:POKEW,XX
9008 GOSUB1000:IF(HHAND7)+(IIAND7)+(PPAND7)+(QQAND7)=28THENPRINT"[158]SUCCESS"
9100 RETURN
9500 POKED,0:POKEG,7:RETURN
9502 POKEG,0:POKED,7:RETURN
9504 POKEJ,0:POKEE,7:RETURN
9506 POKEE,0:POKEJ,7:RETURN
9508 POKET,0:POKEO,7:RETURN
9510 POKEO,0:POKET,7:RETURN
9512 POKER,0:POKEU,7:RETURN
9514 POKEU,0:POKER,7:RETURN
9550 AC=INT(RND(1)*8)+1
9600 RETURN
10010 PRINT"                  [144] [146]  [146]    ";
10020 PRINT"                         ";
10030 PRINT"                         ";
10040 PRINT"                     B  [146] ";
10050 PRINT" [146] C                      ";
10060 PRINT"           b  [158] [146]  [144]b       ";
10070 PRINT"                         ";
10080 PRINT" b  [146]  [146] b                 ";
10090 PRINT"                b     b  ";
10100 PRINT"                         ";
10110 PRINT"  A```[189]  [146]  [146] [173]```D        ";
10120 PRINT"                      [154][176]``";
10130 PRINT"`[174]                    [144] [146]  ";
10140 PRINT"[146]  [146]  [146]  [146]  [146]  [146]  [154][146][194][144] [146]  [154][146][194][144] [146]  [146]  [146]  [146] ";
10150 PRINT" [146]  [146]  [146]  [146]                [158] [146] ";
10160 PRINT"  [154]b   b   [158] [146]              ";
10170 PRINT"  [144] [146]  [146]  [146]  [146]  [146]  [146]  [146]  [154][146]b[144] [146]  [154][146]b[144] [146]  ";
10180 PRINT"[146]  [146]  [146]  [146]  [146]  [146]  [146]             ";
10190 PRINT"       [154][173]```[189]             ";
10200 PRINT"                 [144]E```[174]  [146] ";
10210 PRINT" [146] [176]```H                  ";
10220 PRINT"           b     b       ";
10230 PRINT"                         ";
10240 PRINT" b  [146]  [146] b                 ";
10250 PRINT"                b  [158] [146]  [144]b  ";
10260 PRINT"                         ";
10270 PRINT"      F  [146]  [146] G            ";
10280 PRINT" [160]                       ";
10290 PRINT"                         ";
10300 PRINT"              [146]  [146]         ";
10310 PRINT"                         ";
10320 PRINT"                         ";
10330 PRINT"                   [146]  [146]    ";
10340 PRINT"                         ";
10350 PRINT"                         ";
10360 PRINT"                         ";
10370 PRINT"                         ";
10390 PRINT"          ";
10400 GOTO6
11000 PRINT:PRINT"[158] TRY TO GET 4 TRAINS (YELLOW SQUARES)"
11002 PRINT"INTO THE INTERSECTION BY PRESSING A-H"
11004 PRINT:PRINT" THERE ARE 8 WAYS TO DO IT BUT THE"
11006 PRINT"  COMPUTER WILL NOW ALLOW ONLY #";AC
11008 PRINT:PRINT" EACH GAME HAS A DIFFERENT SOLUTION"
11010 PRINT"    DIFFICULT BUT NOT IMPOSSIBLE"
11012 PRINT:PRINT"      PRESS SPACE BAR TO START"
11020 GETB$:IFB$=""THEN GOTO11020
11022 IFB$=" "THEN PRINT"[147]":GOTO 5